home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr05 / mswlogo3.zip / MSWLOGO.ZIP / EXAMPLES.ZIP / SOUNDS.MCI < prev    next >
Text File  |  1993-04-11  |  660b  |  32 lines
  1. ;
  2. ; Function:
  3. ;
  4. ; This routine will play a couple standard .wav files.
  5. ;
  6. ; To run:
  7. ;
  8. ; Load "sounds
  9. ; Call sounds
  10. ;
  11. ; System requirements:
  12. ;
  13. ; You must have Windows 3.1 (or 3.0 with Multi-Media Extentions)
  14. ; You must have the correct driver loaded in Windows for your sound card.
  15. ; You must have a sound card.
  16. ;
  17. to sounds
  18. print mci [open c:/windows/tada.wav type waveaudio alias wa]
  19. print mci [open c:/windows/ding.wav type waveaudio alias w2]
  20. mci [seek wa to start]
  21. mci [play wa wait]
  22. repeat 2~
  23.   [~
  24.   mci [seek w2 to start]~
  25.   mci [play w2 wait]~
  26.   ]
  27. mci [seek wa to start]
  28. mci [play wa wait]
  29. mci [close wa]
  30. mci [close w2]
  31. end
  32.